home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00a.txt / 000153_icon-group-sender _Mon Jun 19 12:22:29 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  4KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id MAA10487
  4.     for icon-group-addresses; Mon, 19 Jun 2000 12:20:34 -0700 (MST)
  5. Message-Id: <200006191920.MAA10487@baskerville.CS.Arizona.EDU>
  6. From: Lloyd Uhler <luhler@excel.com>
  7. To: "'icon-group@cs.arizona.edu'" <icon-group@optima.CS.Arizona.EDU>
  8. Subject: RE: Questions on ICON
  9. Date: Mon, 19 Jun 2000 10:10:01 -0500
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. Any fix for textbox input in VIB?
  14.  
  15. Thanks.
  16.  
  17. > -----Original Message-----
  18. > From:    Lloyd Uhler 
  19. > Sent:    Wednesday, April 26, 2000 8:52 AM
  20. > To:    'icon-group@cs.arizona.edu'
  21. > Subject:    Questions on ICON
  22. > 
  23. > 1) For Version 9.3.1 on WIN NT and WIN 98, textbox input does not work for
  24. > VIB generated code as follows:
  25. > 
  26. > ##########################################################################
  27. > ##
  28. > #
  29. > #    File:     C:\Icon9.3\vib_tst.icn
  30. > #
  31. > #    Subject:  Program to ...
  32. > #
  33. > #    Author:   
  34. > #
  35. > #    Date:     January 21, 1999
  36. > #
  37. > ##########################################################################
  38. > ##
  39. > #
  40. > #
  41. > #
  42. > ##########################################################################
  43. > ##
  44. > #
  45. > #  Requires:
  46. > #
  47. > ##########################################################################
  48. > ##
  49. > #
  50. > #  Links: vsetup
  51. > #
  52. > ##########################################################################
  53. > ##
  54. > 
  55. > #  This vib interface specification is a working program that responds
  56. > #  to vidget events by printing messages.  Use a text editor to replace
  57. > #  this skeletal program with your own code.  Retain the vib section at
  58. > #  the end and use vib to make any changes to the interface.
  59. > 
  60. > link vsetup
  61. > 
  62. > procedure main(args)
  63. >    local vidgets, root, paused
  64. > 
  65. >    (WOpen ! ui_atts()) | stop("can't open window")
  66. >    vidgets := ui()                # set up vidgets
  67. >    root := vidgets["root"]
  68. > 
  69. >    paused := 1                    # flag no work to do
  70. >    repeat {
  71. >       # handle any events that are available, or
  72. >       # wait for events if there is no other work to do
  73. >       while (*Pending() > 0) | \paused do {
  74. >          ProcessEvent(root, QuitCheck)
  75. >          }
  76. >       # if <paused> is set null, code can be added here
  77. >       # to perform useful work between checks for input
  78. >       }
  79. > end
  80. > 
  81. > procedure text_input_cb1(vidget, value)
  82. > #    write("value = ", value)
  83. >    return
  84. > end
  85. > 
  86. > #===<<vib:begin>>===    modify using vib; do not remove this marker line
  87. > procedure ui_atts()
  88. >    return ["size=600,378", "bg=#C0C0C0"]
  89. > end
  90. > 
  91. > procedure ui(win, cbk)
  92. > return vsetup(win, cbk,
  93. >    [":Sizer:::0,0,600,378:",],
  94. >    ["button1:Button:regular::270,349,32,20:OK",button_cb1],
  95. >    ["text_input1:Text::46:95,111,367,20:Enter Your
  96. > Name:\\=",text_input_cb1],
  97. >    )
  98. > end
  99. > #===<<vib:end>>===    end of section maintained by vib
  100. > procedure button_cb1(vidget, value)
  101. > #
  102. > 
  103. > #  write("button_cb1")
  104. > #
  105. > # This does not work with the original viface module
  106. > # The local one has been revised to detect Window closure
  107. > # and do this without error. This will return to the statement
  108. > # after GetEvents. The program can then process or do what it
  109. > # needs with the results for the GUI data capture. Data values
  110. > # can be inserted into global variables so they are available
  111. > # to the rest of the program.
  112. > #
  113. > #  WClose( &window )
  114. >   return
  115. > end
  116. > 
  117. > 2) There seems to be no way to gather a set of file names from a specified
  118. > directory:
  119. >     (System & popen do not work the same as command-line version of ICON
  120. > (Nticont, Nticonx)).
  121. >     (F.F and pipe.001 are empty)
  122. > 
  123. >  link graphics, dialog, popen, xio
  124. > 
  125. >  procedure main()
  126. > #
  127. > #
  128. > # the 45 is the width
  129. > #
  130. >   txt := TextDialog("Specify Directory Path:",  "Path", "C:\\temp" , 45)
  131. > 
  132. >   Path := dialog_value[1]
  133. >   write("Path = ", Path)
  134. > 
  135. >   cmd := "Dir /b/l "
  136. > #
  137. > # See if F.F Generated fro BAT File
  138. > #
  139. >   system( "CALL C:\\ICON9.3\\WDIR.CMD" || Path )
  140. > #
  141. > # Try popen to get file of file names
  142. > #
  143. >   fin := popen( cmd || Path, "r")
  144. >   while line := trim(read(fin)) do write(line)
  145. > 
  146. >   pclose(fin)
  147. > 
  148. >  end
  149. > 
  150. > REM
  151. > REM Wdir.BAT
  152. > REM
  153. > REM Purpose: Directory Listing
  154. > REM
  155. > DIR /b/l %1 > F.F
  156.